home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 94 / 64er_Magazin_Sonderheft_94_19xx_Markt__Technik_de_Side_A.d64 / fast little demo (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  80 lines
  1. 1 ifa=0thena=a+1:load"player 2x2",8,1
  2. 5 sys 9*4096+11*256
  3. 10 poke 53280,0:poke 53281,0:print"[147]"
  4. 20 a$="s.example"
  5. 30 print"      insert disk"
  6. 40 get x$:if x$="" then 40
  7. 45 print "[145]          >> please wait <<"
  8. 50 print "             >> loading <<"
  9. 150 !lade a$
  10. 160 !xxyy 4,4
  11. 170 print"[147]"
  12. 180 print"   sie sehen jetzt eine kleine..."
  13. 185 fort=0to500:next
  14. 190 !play 22,27
  15. 191 fort=0to40:next
  16. 192 !show 17
  17. 193 fort=0to40:next
  18. 194 !show 16
  19. 195 fort=0to40:next
  20. 200 !play 16,22
  21. 210 !show 30
  22. 215 fort=0to500:next
  23. 220 print"[147]  zu einigen moeglichkeiten von ..."
  24. 230 fort=0to500:next
  25. 239 fort=0to2
  26. 240 !show 28
  27. 245 forg=0to140:next
  28. 250 !show 29
  29. 255 forg=0to140:next
  30. 260 next:print"[147]"
  31. 270 !show 31
  32. 271 forx=0to31
  33. 272 fory=0to31
  34. 273 !draw 31,x,y,17
  35. 274 !draw 31,63-x,y,17
  36. 275 next:!show 31:next
  37. 290 !show 32
  38. 291 forx=0to31
  39. 292 fory=0to31
  40. 293 !draw 32,x,y,6
  41. 294 !draw 32,63-x,y,6
  42. 295 next:!show 32:next
  43. 300 fort=27 to 22 step -1
  44. 310 !show t
  45. 320 forg=0to40:next
  46. 330 next
  47. 340 print"ein einsatz in basicadventures ist sehr einfach und durch die bild-"
  48. 350 print"speicherung unterm rom ist genug platz  fuer knifflige aufgaben"
  49. 360 forg=0to4000:next
  50. 370 print"[147]"
  51. 380 print"--> oder in lernprogrammen mit"
  52. 390 print"    mit animationen wie dieser"
  53. 400 fort=0 to 10
  54. 410 !play 0,15
  55. 420 next
  56. 440 print"[147]--> oder in kleinen demos wie dieser"
  57. 450 fort=0to500:next
  58. 460 !play 22,27
  59. 470 fort=0to40:next
  60. 480 !show 17
  61. 490 fort=0to40:next
  62. 500 !show 16
  63. 510 fort=0to40:next
  64. 520 !play 16,22
  65. 530 !show 30
  66. 540 forg=0to1000:next
  67. 550 print"[147]--> oder zur darstellung trockener "
  68. 560 print"    zahlen in ihren basic programmen"
  69. 570 for t= 0 to 63
  70. 580 !draw 31,t,31,6:next
  71. 590 for t= 0 to 11
  72. 600 read v
  73. 610 for h= 29-v to 29
  74. 620 !draw 31,t*4+4,h,t+1:next
  75. 630 !show 31:next
  76. 640 print"   1 2 3 4 5 6 7 8 9 1 1 1"
  77. 650 print"                         0 1 2
  78. 1000 [131] 3,20,22,4,8,10
  79. 1010 [131] 1,29,24,14,21,12
  80.